home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / misc / minilise.lha / minilise / demo.bat < prev    next >
DOS Batch File  |  1993-03-31  |  3KB  |  91 lines
  1. c:stack 32768
  2. c:Assign lise: ""
  3. c:Echo "Initializing. Please be patient..."
  4. ; lise:LISESET MAXSPCLEN=1024
  5. run >nil: <nil: lise:TekAmiga
  6. wait 5
  7. lise:tpo 100 2700 -xs 20 -ys 20 -font lise:fonts/trip.chr -t "Welcome to LISE !"
  8. wait 2
  9. lise:tpo 100 2300 -xs 16 -ys 16 -font lise:fonts/sans.chr -t "Let's start with some"
  10. lise:tpo 100 1800 -t "Demos."
  11. lise:tpo 100 1300 -t "Try to adjust the size"
  12. lise:tpo 100 800  -t "of this window"
  13. lise:tpo 100 300  -t "USE AN INTERLACE WB !"
  14. wait 5
  15. lise:pag
  16. lise:tpo 100 2800 -xs 12 -ys 12 -font lise:fonts/trip.chr -t "proportional:  ABCijgx"
  17. lise:tpo 100 2500 -t " and Normal:\0 ABCijgx"
  18. lise:tpo 100 1800  -xs 20 -ys 20 -font lise:fonts/goth.chr -t "Gothic"
  19. lise:tpo 1300 1800 -xs 20 -ys 20 -font lise:fonts/sans.chr -t "Sansserif"
  20. lise:tpo 3100 1800 -xs 20 -ys 20 -font lise:fonts/scri.chr -t "Scribt"
  21. lise:tpo 500 1500 -xs 12 -ys 12 -font lise:fonts/trip.chr -t "Switch to Greek letters:"
  22. lise:tpo 1000 1300  -t "\2abcdefghijklm"
  23. lise:tpo 1000 1100  -t "\2nopqrstuvwxyz"
  24. lise:tpo 1000 900   -t "\2ABCDEFGHIJKLM"
  25. lise:tpo 1000 700   -t "\2NOPQRSTUVWXYZ"
  26. lise:tpo 100 300 -xs 10 -ys 10 -t "\1Mix\udifferent\d\dstyles\u\2abc\1 and symbols"
  27. wait 5
  28. lise:pag
  29. lise:tpo 1000 2300 -xs 6  -ys 6  -t "Vector Fonts"
  30. lise:tpo 900  2200 -xs 8  -ys 8  -t "Vector Fonts"
  31. lise:tpo 800  2100 -xs 10 -ys 10 -t "Vector Fonts"
  32. lise:tpo 600  1900 -xs 14 -ys 14 -t "Vector Fonts"
  33. lise:tpo 400  1700 -xs 16 -ys 16 -t "Vector Fonts"
  34. lise:tpo 1300 500  -xs 10 -ys 10 -w 0  -t "Vector Fonts"
  35. lise:tpo 1300 500  -xs 10 -ys 10 -w 30 -t "Vector Fonts"
  36. lise:tpo 1300 500  -xs 10 -ys 10 -w 60 -t "Vector Fonts"
  37. lise:tpo 1300 500  -xs 10 -ys 10 -w 90 -t "Vector Fonts"
  38. wait 5
  39. lise:pag
  40. lise:tpo 300 2500 -xs 12 -ys 12 -t "Drawing primitives:"
  41. lise:vect  200  200  200 1200
  42. lise:vect  200 1200 1200 2200
  43. lise:vect 1200 2200 2200 1200
  44. lise:vect 2200 1200 2200  200
  45. lise:vect 2200  200  200  200
  46. lise:vect  200  200 2200 1200
  47. lise:vect 2200 1200  200 1200
  48. lise:vect  200 1200 2200  200
  49. lise:point 3000 2300 -crf 400
  50. wait 5
  51. lise:pag
  52. lise:tpo 100 1500 -xs 16 -ys 16 -t "Display spectra in"
  53. lise:tpo 100 1000 -t "different styles:"
  54. wait 5
  55. lise:pag
  56. lise:tpo 100 1500 -xs 26 -ys 26 -t "Starting with a"
  57. lise:tpo 100 1000               -t "raw display"
  58. wait 5
  59. lise:tsf -xs 6 -ys 6
  60. lise:ash br772 -pag -b -y -0.05 +y 0.05
  61. wait 5
  62. lise:pag
  63. lise:tpo 100 1500 -xs 26 -ys 26 -t "Zoom in"
  64. wait 5
  65. lise:tsf -xs 6 -ys 6
  66. lise:ash br772[0:80]   -pag -b -y -0.05 +y 0.05 -2
  67. lise:ash br772[80:160]      -b -y -0.05 +y 0.05 -1
  68. wait 5
  69. lise:pag
  70. lise:tpo 100 1500 -xs 26 -ys 26 -t "Final Output:"
  71. wait 5
  72. lise:tsf -xs 8 -ys 8
  73. lise:ash br772[0:100] -pag -b -c -y -0.05 +y 0.05 -cn -zero -mb 400
  74. lise:ash br772fit[0:100] -use -v -xn -yn -cn
  75. lise:tpo 1000 2700 -xs 12 -ys 12 -t "Final analysis of \u77\dBr in Ni"
  76. lise:tpo 300  1500 -xs 8 -ys 8 -w 90 -t "R(t)"
  77. lise:tpo 1500 50  -w 0  -t "time [ns]"
  78. wait 5
  79. lise:pag
  80. lise:tpo 100 2500 -xs 12 -ys 12 -t "Generating two frequencies:"
  81. lise:tsf -xs 6 -ys 6
  82. lise:scalc ram:sin2[0:1023]=10*sin(lin*0.06)+5*sin(lin*0.04)
  83. lise:ash ram:sin2 -v -y -15 +y +15 -zero -5
  84. lise:tpo 100 2300 -xs 12 -ys 12 -t "Fourier analysis:"
  85. lise:tsf -xs 6 -ys 6
  86. lise:four ram:sin2 -o ram:four
  87. lise:ash ram:four[0:25] -v -6
  88. c:delete ram:sin2#?
  89. c:delete ram:four#?
  90.  
  91.